home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Test / Harness / Assert.pm next >
Encoding:
Perl POD Document  |  2009-06-26  |  911 b   |  65 lines
  1. package Test::Harness::Assert;
  2.  
  3. use strict;
  4. require Exporter;
  5. use vars qw($VERSION @EXPORT @ISA);
  6.  
  7. $VERSION = '0.02';
  8.  
  9. @ISA = qw(Exporter);
  10. @EXPORT = qw(assert);
  11.  
  12.  
  13. =head1 NAME
  14.  
  15. Test::Harness::Assert - simple assert
  16.  
  17. =head1 SYNOPSIS
  18.  
  19.   ### FOR INTERNAL USE ONLY ###
  20.  
  21.   use Test::Harness::Assert;
  22.  
  23.   assert( EXPR, $name );
  24.  
  25. =head1 DESCRIPTION
  26.  
  27. A simple assert routine since we don't have Carp::Assert handy.
  28.  
  29. B<For internal use by Test::Harness ONLY!>
  30.  
  31. =head1 FUNCTIONS
  32.  
  33. =head2 C<assert()>
  34.  
  35.   assert( EXPR, $name );
  36.  
  37. If the expression is false the program aborts.
  38.  
  39. =cut
  40.  
  41. sub assert ($;$) {
  42.     my($assert, $name) = @_;
  43.  
  44.     unless( $assert ) {
  45.         require Carp;
  46.         my $msg = 'Assert failed';
  47.         $msg .= " - '$name'" if defined $name;
  48.         $msg .= '!';
  49.         Carp::croak($msg);
  50.     }
  51.  
  52. }
  53.  
  54. =head1 AUTHOR
  55.  
  56. Michael G Schwern C<< <schwern at pobox.com> >>
  57.  
  58. =head1 SEE ALSO
  59.  
  60. L<Carp::Assert>
  61.  
  62. =cut
  63.  
  64. 1;
  65.